home *** CD-ROM | disk | FTP | other *** search
/ PD ROM 1 / PD ROM Volume I - Macintosh Software from BMUG (1988).iso / Programming / Languages / Jeff Interpreter Docs / GCD < prev    next >
Encoding:
Text File  |  1986-12-08  |  539 b   |  26 lines  |  [TEXT/JEFF]
  1. 00  NOOP       THIS PROGRAM CALCULATES THE GCD OF TWO INTEGERS.
  2. 01  NOOP       -----------------------------------------------
  3. 02  ILIT 2345
  4. 03  ILIT 250   PUSH THE TWO INTEGERS.
  5. 04  DUPL
  6. 05  LOAD 0 0
  7. 06  EQUL       TEST WHETHER THE TWO NUMBERS ARE EQUAL
  8. 07  BRTR 22
  9. 08  DUPL
  10. 09  LOAD 0 0
  11. 10  GRTR       TEST WHETHER B>A IS TRUE
  12. 11  BRTR 17
  13. 12  LOAD 0 0
  14. 13  LOAD 0 1
  15. 14  SUB
  16. 15  STOR 0 0  STORE A - B IN A SINCE A>B
  17. 16  BUNC 04
  18. 17  DUPL
  19. 18  LOAD 0 0
  20. 19  SUB
  21. 20  STOR 0 1     STORE B-A IN B SINCE B>A
  22. 21  BUNC 04
  23. 22  WRIT 0 0
  24. 23  STOP
  25. DUMP
  26.